1 REM *********************************
2 REM *                               *
3 REM * AUTOR : SIEHE AB ZEILE  63000 *
4 REM *                               *
5 REM *********************************
6 POKE2,PEEK(2)+1:IFPEEK(2)>3THEN180
7 LOADSTR$(PEEK(2))+"*",8,1
8 DATA121,20,20,20,121,0
9 DATA57,68,68,68,57,0
10 DATA60,65,64,65,60,0
11 ======== UNTERPROGRAMME =============
12 REM MOMENT
13 PRINT:PRINTTAB(TB)"[205]OMENT ...":RETURN
14 REM TASTE
15 POKE198,0:WAIT198,1:GETA$:RETURN
20 REM ZENTRIEREN
25 PRINTTAB((40-LEN(Z$))/2);Z$:RETURN
30 REM SPACE
35 PRINT"";:Z$="[170][167] [211][208][193][195][197] [190][191]":GOSUB25
40 GOSUB15:IFA$<>" "ANDA$<>"X"THEN40
45 RETURN
50 REM FEHLERKANAL
55 Z$=""
60 GET#15,A$:Z$=Z$+A$:IFA$<>CHR$(13)THEN60
65 FK$=Z$:A=VAL(Z$):IFA<2THENRETURN
71 PRINT"[147]":GOSUB25:PRINT:PRINT:PRINT:GOSUB35
72 RETURN
75 REM KORREKT ?
80 Z$="[150][203]ORREKT ([202]/[206]) ?":GOSUB25:RETURN
85 REM INPUT / GET
90 E$="":DP%=0:POKE204,0
95 GOSUB15
100 IFA$=CHR$(13)THEN130
105 IFA$=":"ANDLEN(E$)<9THENDP%=DP%+1:A$="[169]":PRINTA$;:E$=E$+A$:GOTO95
110 IF(A$>="-"ANDA$<="9"ANDA$<>"/")ANDLEN(E$)<9THENPRINTA$;:E$=E$+A$
115 L=LEN(E$)-1:IFA$=CHR$(20)ANDRIGHT$(E$,1)="[169]"THENDP%=DP%-1
120 IFA$=CHR$(20)ANDL>=0THENPRINTA$;:E$=LEFT$(E$,L)
125 GOTO95
130 IFE$=""THENE$=E$(SP,I):PRINTE$;:GOTO135
131 IFDP%<>1THEN95
135 POKE204,1:PRINT" ":RETURN
140 REM VON / BIS
145 AF=VAL(ST$)
150 IFAF<0THENED=(ABS(AF)>AS*RR%)*-AS*RR%+INT(NOT(ABS(AF)>AS*RR%))*AF:AF=1:RETURN
155 IFRIGHT$(ST$,1)="-"THENED=AS*RR%:RETURN
160 PO%=0:FORJJ=1TOLEN(ST$):IFMID$(ST$,JJ,1)="-"THENPO%=JJ
162 NEXT
165 IFPO%=0THENED=AF:RETURN
170 ED=VAL(MID$(ST$,PO%+1)):RETURN
175 ========== INITIALISIEREN ==========
180 DIMM$(2,20),Z$(20),G(38,10),H(38,10),D$(38),E$(38,10),LI$(1),C$(6)
185 DIMPP(20),MP(20),PT(20),MT(20),GW(20),UN(20),VL(20),PL(20)
186 PL(0)=-1
190 FORI=0TO20:Z$(I)=RIGHT$(STR$(I),2):NEXT
200 FORI=1TO3:C$(I)=CHR$(8):FORJ=1TO6:READA
201 C$(I)=C$(I)+CHR$(A+128):NEXT:C$(I)=C$(I)+CHR$(15):NEXT
203 RESTORE:FORI=4TO6:C$(I)=CHR$(8):FORJ=1TO6:READA
204 C$(I)=C$(I)+CHR$(A+128)+CHR$(A+128):NEXT:C$(I)=C$(I)+CHR$(14):NEXT
217 OPEN15,8,15:OPEN3,0:DR=3:POKE251,66
220 SP$="                                        ":SP$=SP$+SP$
225 MU$="[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
226 IFPEEK(789)<>194THENGOSUB18500
227 SYS50432:GOTO230
228 ============ HAUPTMEN^ =============
230 PRINT"[147]":PRINTLI$(0)
240 PRINT""MU$:PRINT"[145][145]";:Z$=" [200] A U P T M E N ^ ":GOSUB25
250 PRINT"[193]) [212]ABELLE           [198]) NEUE [204]IGA
260 [153]"PEEK) VALRGEBNISSE AUSG.  CHR$) STR$ATEN L*SCHEN
270 PRINT"[195]) RESTLICHE [211]PIELE  [200]) [193]USGABEGER@T
272 [139]DR[178]4[167][153][163]24)"PEEKILDSCHIRM":[137]280
275 [153][163]24)"STR$RUCKER"
280 [153]"STR$) VALRGEBNISSE EING.  RIGHT$) (null)HR STELLEN
290 PRINT"[197]) [196]ISK              [195][212][210][204] [202]) [197]NDE
300 [153]MU$
310 [141]15
315 [139]A$[178][199](10)[167]16000
320 [139]A$[179]"A"[176]A$[177]"I"[167]310
340 [145][198](A$)[171]64[137]3000,5000,9000,7000,15000,31000,500,18000,1000
499 [178][178][178][178][178][178][178][178][178][178][178] DATEN L[172]SCHEN [178][178][178][178][178][178][178][178][178][178]
500 [153]"LOAD"LI$(0):Z$[178]" STR$ A T E N   L * S C H E N "
510 [153]""MU$:[153]"ONON";:[141]25
520 [153][163]12)"1) ALLE"         
530 [153][163]12)"2) (null)PIELTAG"
540 [153][163]12)"3) LEFT$AUPTMEN^"         
550 [153]MU$
560 [141]15
570 [139]A$[179]"1"[176]A$[177]"3"[167]560
580 [139]A$[178]"3"[167]230
590 [133]"LOAD (null)ICHER ";SI$
600 [139][200](SI$,1)[179][177]"J"[167]500
610 [139]A$[178]"1"[167][138]180
620 [141]17000:[139]AF[178]1[175]ED[178]AS[172]RR%[167]670
630 [153]"":TB[178]14:[141]13
640 [129]SP[178]AF[164]ED
641 [129]II[178]1[164]NM[173]2:EG$(II)[178]"-STEP-":E$(SP,II)[178]"-STEP-":[130]
650 [141]7280
660 [130]:[137]230
670 [129]I[178]1[164]NM:PP(I)[178]0:MP(I)[178]0:PT(I)[178]0:MT(I)[178]0:GW(I)[178]0:UN(I)[178]0:VL(I)[178]0:[130]
680 [129]I[178]1[164]AS[172]RR%:[129]J[178]1[164]NM[173]2:E$(I,J)[178]"-STEP-":[130]:[130]:PL(0)[178][171]1
690 [137]230
999 [178][178][178][178][178][178][178][178][178][178] UHR STEL[195] [178][178][178][178][178][178][178][178][178][178][178][178][178]
1000 [141]18500:[137]230
2999 [178][178][178][178][178][178][178][178][178][178][178][178][178] TABELLE [178][178][178][178][178][178][178][178][178][178][178][178][178]
3000 [153]"LOAD"LI$(0)
3010 [153]""MU$
3020 [153]"ONON";:Z$[178]" (null) A B E L L E ":[141]25
3030 [153][163]12)"1)CLOSEAUSGEBEN"
3040 [153][163]12)"2)CLOSEEINGEBEN"
3050 [153][163]12)"3)CLOSELEFT$AUPTMEN^"
3060 [153]MU$
3070 [141]15
3080 [139]A$[179]"1"[176]A$[177]"3"[167]3070
3090 [145][197](A$)[137]3100,4000,230
3100 TB[178]12:[141]13:[139]PL(0)[179][177][171]1[167]3310
3105 [129]I[178]1[164]NM:PL(I)[178]0:[130]
3110 [129]I[178]1[164]NM:[129]J[178]1[164]NM
3120 [139]PP(I)[179]PP(J)[167]3290
3130 [139]PP(I)[177]PP(J)[167]3300
3140 [139]MP(I)[177]MP(J)[167]3290
3150 [139]MP(I)[179]MP(J)[167]3300
3160 [139]PT(I)[171]MT(I)[179]PT(J)[171]MT(J)[167]3290
3170 [139]PT(I)[171]MT(I)[177]PT(J)[171]MT(J)[167]3300
3180 [139]PT(I)[179]PT(J)[167]3290
3190 [137]3300
3290 PL(I)[178]PL(I)[170]1
3300 [130]:[130]:PL(0)[178]0
3310 [153]"LOAD":F%[178]0:[139]DR[178]3[167]3315
3311 [152]4:[152]4,[199](14)"TABELLE"[199](15):[152]4
3312 [152]4,"PLATZ  MANNSCHAFT     SPIELE GW UN VL           DIFFERENZ         PKT"
3313 [152]4,[199](8)[199](26)[199](210)[199](136)[199](26)[199](210)[199](136)[199](15)
3315 K[178]0:[129]I[178]1[164]NM:[129]J[178]1[164]NM
3320 [139]PL(J)[170]1[179][177]I[167]3480
3325 K[178]K[170]1
3326 [151]646,1[171](K[173]2[178][181](K[173]2))[172]4
3330 [139]F%[178]I[167][153]"    ";:[137]3350
3340 F%[178]I:[153]Z$(I)". ";:[139]DR[178]4[167][152]4,I".";
3350 [153]M$(0,J);:[139]DR[178]4[167][152]4,[199](16)"07"M$(1,J);
3360 DI$[178][201](SP$[170][196]([182](PT(J)[171]MT(J))),5)
3365 V$[178]" "
3370 [139]PT(J)[171]MT(J)[177]0[167]V$[178]"+"
3371 [139]PT(J)[171]MT(J)[179]0[167]V$[178]"-"
3380 PP$[178][201]([196](PP(J)),2)
3390 MP$[178][201]([196](MP(J)),2)
3395 AS$[178][201]([196](GW(J)[170]UN(J)[170]VL(J)),2)
3400 [153][163]17)"(null) "AS$" (null) "V$;DI$" (null) "PP$":"MP$
3410 [139]DR[178]3[167]3480
3420 [152]4,[199](16)"24"AS$;
3430 GW$[178][201]([196](GW(J)),2)
3440 UN$[178][201]([196](UN(J)),2)
3450 VL$[178][201]([196](VL(J)),2)
3455 PT$[178][201](SP$[170][196](PT(J)),5)
3456 MT$[178][201](SP$[170][196](MT(J)),5)
3460 [152]4,"   "GW$" "UN$" "VL$"   ";
3470 [152]4,PT$":"MT$"     "V$;DI$"   "PP$":"MP$
3480 [130]:[130]
3481 [153]:[141]35
3482 [139]A$[178]"X"[167]3000
3490 [153]"LOAD"
3500 F%[178]0:K[178]0:[129]I[178]1[164]NM:[129]J[178]1[164]NM
3510 [139]PL(J)[170]1[179][177]I[167]3580
3515 K[178]K[170]1
3516 [151]646,1[171](K[173]2[178][181](K[173]2))[172]4
3517 [139]F%[178]I[167][153]"    ";:[137]3530
3520 F%[178]I:[153]Z$(I);". ";
3530 AS$[178][201]([196](GW(J)[170]UN(J)[170]VL(J)),2)
3540 GW$[178][201]([196](GW(J)),2)
3550 UN$[178][201]([196](UN(J)),2)
3560 VL$[178][201]([196](VL(J)),2)
3565 [153]M$(0,J);
3570 [153]"  "AS$"   "GW$" "UN$" "VL$
3580 [130]:[130]
3590 [153]:[141]35
3610 [137]3000
4000 [153]"LOADA  ALLE"
4010 [129]I[178]1[164]NM
4020 [151]646,1[171](I[173]2[178][181](I[173]2))[172]4
4040 [153]Z$(I);". "M$(0,I)
4050 [130]
4060 [153]""[163]22)"(null)ANNSCHAFT :"
4070 [153][163]22);:[132]3,M$
4075 [139]M$[178]"X"[167]3000
4080 [139]M$[178]"A"[175]NM[179][177]0[167]AF[178]1:ED[178]NM:[137]4115
4090 M[178][197](M$)
4100 [139]M[179]1[176]M[177]NM[167][153]"ON":[137]4070
4110 AF[178]M:ED[178]M
4115 [129]I[178]AF[164]ED
4120 [153]"LOADSYS"M$(0,I)
4125 [153][163]15)""PP(I)
4130 [133]"ON(null)LUSPUNKTE....";PP(I)
4135 [153][163]15)MP(I)
4140 [133]"ON(null)INUSPUNKTE...";MP(I)
4145 [153][163]15)""PT(I)
4150 [133]"ON(null)LUSTORE......";PT(I)
4155 [153][163]15)MT(I)
4160 [133]"ON(null)INUSTORE.....";MT(I)
4165 [153][163]15)""GW(I)
4170 [133]"ONGEWONNEN......";GW(I)
4175 [153][163]15)UN(I)
4180 [133]"ONUNENTSCHIEDEN.";UN(I)
4185 [153][163]15)VL(I)
4190 [133]"ONVERLOREN......";VL(I)
4200 [153]:[141]80
4210 [141]15:[139]A$[178]"N"[167]4120
4220 [139]A$[179][177]"J"[167]4210
4230 [130]:PL(0)[178][171]1:[137]3000
4998 [128]
4999 [178][178][178][178][178][178][178] ERGEBNISSE AUSGEBEN [178][178][178][178][178][178][178]
5000 [153]"LOAD"LI$(0)
5010 [153]""MU$"ON";:Z$[178]" VAL R G E B N I S S E   A U S G . ":[141]25
5020 [153][163]9)"1) (null)PIELTAG"
5030 [153][163]9)"2) EINZELNE (null)ANNSCHAFT"
5040 [153][163]9)"3) BESTIMMTES (null)PIEL"
5050 [153][163]9)"4) LEFT$AUPTMEN^"
5060 [153]MU$
5070 [141]15
5080 [139]A$[179]"1"[176]A$[177]"4"[167]5070
5090 [145][197](A$)[137]5100,5500,6000,230
5100 [141]17000:[139]ST$[178]"X"[167]5000
5140 [139]AF[179]1[176]AF[177]AS[172]RR%[167]5100
5150 [129]SP[178]AF[164]ED
5160 [153]"LOAD"LI$(0)
5170 [153]""SP"CMD. (null)PIELTAG  "S$"    "D$(SP)""
5180 F%[178]0:[129]I[178]1[164]NM[173]2:[139]E$(SP,I)[178]"-STEP-"[167]F%[178]F%[170]1
5190 [130]
5200 [139]F%[178][181](NM[173]2)[167][153]"  VALS LIEGT NOCH KEIN VALRGEBNIS VOR !!!":[137]5240
5206 [139]DR[178]4[167][152]4,SP". SPIELTAG     "D$(SP):[152]4
5210 [129]I[178]1[164]NM[173]2
5215 [151]646,1[171](I[173]2[178][181](I[173]2))[172]4
5220 [153]M$(0,H(SP,I))"-"M$(0,G(SP,I))" "E$(SP,I)
5225 [139]DR[178]4[167][141]18100:[152]4
5230 [130]
5240 [153]"":[141]35:[130]:[137]5000
5500 [153]"LOAD"
5510 [129]I[178]1[164]NM
5515 [151]646,1[171](I[173]2[178][181](I[173]2))[172]4
5520 [153]Z$(I)". "M$(0,I)
5530 [130]
5540 [153]""[163]22)"(null)ANNSCHAFT :"
5550 [153][163]22);:[132]3,M$
5560 [139]M$[178]"X"[167]5000
5570 M[178][197](M$):[139]M[179]1[176]M[177]NM[167]5540
5575 [139]DR[178]3[167]5580
5576 [152]4:[152]4:[152]4,"ERGEBNISSE  "[199](14)M$(2,M)[199](15):[152]4
5580 K[178]0:[129]SP[178]1[164]AS[172]RR%:[139]K[179][177]0[167]5630
5590 [153]"LOAD"LI$(0)
5600 [153]"SYS VALRGEBNISSE "M$(0,M)""
5630 [129]I[178]1[164]NM[173]2
5635 [151]646,1[171](K[173]2[178][181](K[173]2))[172]4
5640 [139]H(SP,I)[179][177]M[176]E$(SP,I)[178]"-STEP-"[167]5670
5650 [153]M$(0,G(SP,I))" (LEFT$) "E$(SP,I)[163]29)D$(SP):K[178]K[170]1
5660 [139]DR[178]3[167]5665
5661 [141]18100:[152]4,[199](16)"49"SP". SPIELTAG  /  "D$(SP)
5665 [137]5700
5670 [139]G(SP,I)[179][177]M[176]E$(SP,I)[178]"-STEP-"[167]5700
5680 [153]M$(0,H(SP,I))" (ATN) "E$(SP,I)[163]29)D$(SP):K[178]K[170]1
5690 [139]DR[178]3[167]5700
5695 [141]18100:[152]4,[199](16)"50"SP". SPIELTAG  /  "D$(SP)
5700 [139]K[178]10[167]K[178]0:[153]:[141]35
5710 [130]:[130]
5720 [139]K[179][177]0[167][153]:[141]35
5730 [137]5000
6000 [153]"LOAD"
6010 [129]I[178]1[164]NM
6015 [151]646,1[171](I[173]2[178][181](I[173]2))[172]4
6020 [153]Z$(I)". "M$(0,I)
6030 [130]
6040 [153]""[163]22)"LEFT$EIMMANNSCHAFT :"
6050 [153][163]22);:[132]3,HM$:[139]HM$[178]"X"[175]F2%[178]1[167]F2%[178]0:[137]9000
6051 [139]HM$[178]"X"[167]5000
6055 HM[178][197](HM$):[139]HM[179]1[176]HM[177]NM[167][153]"ON":[137]6050
6056 [153]"ON":[153][163]22)M$(0,HM)
6060 [153]"":[153][163]22)"CHR$ASTMANNSCHAFT :"
6070 [153][163]22);:[132]3,GM$
6080 GM[178][197](GM$):[139]GM[179]1[176]GM[177]NM[167][153]"ON":[137]6070
6090 [153]"ON":[153][163]22)M$(0,GM):TB[178]22:[141]13
6100 F%[178]0:[129]SP[178]1[164]AS[172]RR%
6110 [129]I[178]1[164]NM[173]2
6120 [139](H(SP,I)[179][177]HM[176]G(SP,I)[179][177]GM)[175](G(SP,I)[179][177]HM[176]H(SP,I)[179][177]GM)[167]6190
6130 [139]F%[178]0[167]F%[178]1:[153]"LOAD"LI$(0)""
6140 [153]""SP"CMD. (null)PIELTAG "S$"   "D$(SP)
6150 [153]""M$(0,H(SP,I))"-"M$(0,G(SP,I))" "E$(SP,I)
6160 [139]DR[178]3[167]6190
6170 [152]4:[152]4:[152]4,SP". SPIELTAG    "D$(SP)
6180 [152]4:[141]18100:[152]4
6190 [130]:[130]
6200 [139]F%[178]1[167][153]:[141]35:[139]F2%[178]1[167]F2%[178]0:[137]9000
6205 [139]F%[178]1[167]5000
6210 [153][163]22)"(null)PIEL WIRD NICHT"
6220 [153][163]22)"AUSGETRAGEN !   "
6230 [141]15:[139]A$[179][177]" "[167]6230
6240 [139]F2%[178]1[167]F2%[178]0:[137]9000
6250 [137]5000
6999 [178][178][178][178][178][178][178] ERGEBNISSE EINGEBEN [178][178][178][178][178][178][178]
7000 [153]"LOAD"LI$(0)
7010 [153]""MU$"ON";:Z$[178]" VAL R G E B N I S S E   E I N G . "
7020 [141]25
7030 [153][163]12)"1) (null)PIELTAG"
7060 [153][163]12)"2) EINZELNES (null)PIEL"
7070 [153][163]12)"3) LEFT$AUPTMEN^"
7080 [153]MU$
7090 [141]15
7100 [139]A$[179]"1"[176]A$[177]"3"[167]7090
7110 [145][197](A$)[137]7120,8000,230
7120 [141]17000:[139]ST$[178]"X"[167]7000
7130 [139]AF[179]1[176]AF[177]AS[172]RR%[167]7120
7150 [129]SP[178]AF[164]ED
7160 [153]"LOAD"LI$(0)
7170 [153]""SP". (null)PIELTAG "S$[163]29)D$(SP)
7180 [153]:[129]I[178]1[164]NM[173]2
7190 [153]M$(0,H(SP,I))"-"M$(0,G(SP,I))[163]30)E$(SP,I)
7200 [130]
7210 [153]""[163]30);
7220 [129]I[178]1[164]NM[173]2
7230 [141]90:EG$(I)[178]E$:[153][163]30);
7240 [139][195](E$)[178]9[167][153]"ON";
7270 [130]:TB[178]12:[141]13:[141]7280:[137]7000
7280 [129]I[178]1[164]NM[173]2:[139]E$(SP,I)[178]"-STEP-"[167]7350
7290 H[178][197](E$(SP,I))
7300 [129]J[178]1[164][195](E$(SP,I))
7310 [139][202](E$(SP,I),J,1)[178]"STEP"[167]PO[178]J:J[178][195](E$(SP,I))
7320 [130]
7330 G[178][197]([202](E$(SP,I),PO[170]1))
7340 FM%[178][171]1:[141]16500
7350 [139]EG$(I)[178]"-STEP-"[167]7420
7355 H[178][197](EG$(I))
7360 [129]J[178]1[164][195](EG$(I))
7370 [139][202](EG$(I),J,1)[178]"STEP"[167]PO[178]J:J[178][195](EG$(I))
7380 [130]
7390 G[178][197]([202](EG$(I),PO[170]1))
7400 FM%[178]1:[141]16500
7410 E$(SP,I)[178]EG$(I)
7420 [130]:PL(0)[178][171]1:[142]
8000 [153]"LOAD"
8010 [129]I[178]1[164]NM
8020 [151]646,1[171](I[173]2[178][181](I[173]2))[172]4
8040 [153]Z$(I)". "M$(0,I)
8050 [130]
8060 [153]""[163]22)"LEFT$EIMMANNSCHAFT :"
8070 [153][163]22);:[132]3,HM$:[153]
8080 [139]HM$[178]"X"[167]7000
8090 HM[178][197](HM$):[153]"ON"[163]22);
8100 [139]HM[179]1[176]HM[177]NM[167]8070
8110 [153]M$(0,HM)
8120 [153]""[163]22)"CHR$ASTMANNSCHAFT :"
8130 [153][163]22);:[132]3,GM$:[153]
8140 GM[178][197](GM$):[153]"ON"[163]22);
8150 [139]GM[179]1[176]GM[177]NM[167]8070
8160 [153]M$(0,GM):TB[178]22:[141]13
8170 SP[178]0:[129]I[178]1[164]AS[172]RR%
8180 [129]J[178]1[164]NM[173]2
8190 [139]H(I,J)[178]HM[175]G(I,J)[178]GM[167]SP[178]I:K[178]J:I[178]AS[172]RR%:J[178]NM[173]2
8200 [130]:[130]
8210 [139]SP[179][177]0[167]8230
8220 [153]""[163]22)"(null)PIEL WIRD NICHT":[153][163]22)"AUSGETRAGEN !   "
8225 [141]15:[137]8000
8230 [153]"LOAD"LI$(0)
8240 [153]""SP"CMD. (null)PIELTAG  "S$[163]29)D$(SP)
8250 I[178]K:[139]E$(SP,I)[178]"-STEP-"[167]8270
8260 [153]"VALRGEBNIS IM (null)PEICHER :   ";E$(SP,I);" "
8270 [153]""M$(0,HM)" LOG "M$(0,GM)
8280 [153]:[153]""
8290 [139]E$(SP,I)[179][177]"-STEP-"[167][153]"(null)EUES ";
8300 [153]"VALRGEBNIS : ";
8310 [141]90:TB[178]14:[141]13
8320 [139]E$(SP,I)[178]"-STEP-"[167]8390
8330 H[178][197](E$(SP,I))
8340 [129]J[178]1[164][195](E$(SP,I))
8350 [139][202](E$(SP,I),J,1)[178]"STEP"[167]PO[178]J:J[178][195](E$(SP,I))
8360 [130]
8370 G[178][197]([202](E$(SP,I),PO[170]1))
8380 FM%[178][171]1:[141]16500
8390 [139]E$[178]"-STEP-"[167]8450
8395 H[178][197](E$)
8400 [129]J[178]1[164][195](E$)
8410 [139][202](E$,J,1)[178]"STEP"[167]PO[178]J:J[178][195](E$)
8420 [130]
8430 G[178][197]([202](E$,PO[170]1))
8440 FM%[178]1:[141]16500
8450 E$(SP,I)[178]E$:PL(0)[178][171]1:[137]7000
8999 [178][178][178][178][178][178][178][178][178] FEH[195]DE SPIELE [178][178][178][178][178][178][178][178][178]
9000 [153]"LOAD"LI$(0)
9010 [153]""MU$:Z$[178]" R E S T L I C H E   (null) P I E L E "
9020 [153]"ONON";:[141]25
9030 [153][163]12)"1) (null)PIELTAG"
9040 [153][163]12)"2) (null)ESTPROGRAMM"
9050 [153][163]12)"3) (null)ACHHOLSPIELE"
9055 [153][163]12)"4) STR$ATUM E. (null)PIELS"
9060 [153][163]12)"5) LEFT$AUPTMEN^"
9070 [153]MU$
9080 [141]15
9090 [139]A$[179]"1"[176]A$[177]"5"[167]9080
9100 [145][197](A$)[137]9120,9500,10000,10500,230
9120 [141]17000:[139]ST$[178]"X"[167]9000
9160 [139]AF[179]1[176]AF[177]AS[172]RR%[167]9120
9180 [129]I[178]AF[164]ED
9190 [153]"LOAD"LI$(0)
9200 [153]""I"CMD. (null)PIELTAG  "S$"   "D$(I)""
9210 F%[178]0:[129]J[178]1[164]NM[173]2
9220 [139]E$(I,J)[178]"-STEP-"[167]F%[178]F%[170]1
9230 [130]
9240 [139]F%[179][177][181](NM[173]2)[167][153]" (null)PIELTAG WURDE BEREITS AUSGETRAGEN !":[137]9280
9241 [139]DR[178]3[167]9245
9242 [152]4:[152]4:[152]4,I". SPIELTAG    "D$(I):[152]4
9245 [129]J[178]1[164]NM[173]2
9246 [151]646,1[171](J[173]2[178][181](J[173]2))[172]4
9250 [153]M$(0,H(I,J))"  LOG  "M$(0,G(I,J))
9260 [139]DR[178]3[167]9275
9270 [152]4,M$(1,H(I,J))"  LEN  "M$(1,G(I,J))
9275 [130]
9280 [153]:[141]35
9290 [130]:[137]9000
9500 [153]"LOAD":[129]I[178]1[164]NM
9515 [151]646,1[171](I[173]2[178][181](I[173]2))[172]4
9520 [153]Z$(I)". "M$(0,I)
9530 [130]
9540 [153]""[163]22)"(null)ANNSCHAFT :"
9550 [153][163]22);:[132]3,M$
9560 [139]M$[178]"X"[167]9000
9570 M[178][197](M$)
9580 [139]M[179]1[176]M[177]NM[167][153]"ON":[137]9550
9610 [139]DR[178]3[167]9630
9620 [152]4:[152]4:[152]4,"RESTPROGRAMM "[199](14)M$(2,M)[199](15):[152]4
9630 [153]"LOAD"LI$(0)
9633 [153]"SYS (null)ESTPROGRAMM : "M$(0,M)""
9635 K[178]0:[129]SP[178]1[164]AS[172]RR%:[139]K[179][177]0[167]9640
9640 [129]I[178]1[164]NM[173]2
9650 [151]646,1[171](K[173]2[178][181](K[173]2))[172]4
9670 [139]H(SP,I)[179][177]M[176]E$(SP,I)[179][177]"-STEP-"[167]9720
9680 [153]M$(0,G(SP,I))" (LEFT$)   "D$(SP):K[178]K[170]1
9690 [139]DR[178]3[167]9770
9700 [152]4,M$(1,H(SP,I))"  LEN  "M$(1,G(SP,I))[199](16)"39";
9705 [152]4,SP". SPIELTAG  /  "D$(SP)
9710 [137]9770
9720 [139]G(SP,I)[179][177]M[176]E$(SP,I)[179][177]"-STEP-"[167]9770
9730 [153]M$(0,H(SP,I))" (ATN)   "D$(SP):K[178]K[170]1
9740 [139]DR[178]3[167]9770
9750 [152]4,M$(1,H(SP,I))"  LEN  "M$(1,G(SP,I))[199](16)"39";
9760 [152]4,SP". SPIELTAG  /  "D$(SP)
9770 [139]K[178]10[167]K[178]0:[153]:[141]35:[153]"LOAD"LI$(0):[153]"SYS (null)ESTPROGRAMM : "M$(0,M)""
9780 [130]:[130]
9790 [139]K[179][177]0[167][153]:[141]35
9800 [137]9000
9999 [128]
10000 [153]"LOAD"
10010 [139]DR[178]4[167][152]4:[152]4:[152]4,[199](14)"NACHHOLSPIELE :"[199](15):[152]4
10015 [153]"LOAD"LI$(0)
10016 [153]"SYS (null)ACHHOLSPIELE : "
10020 K[178]0:[129]SP[178]1[164]AS[172]RR%
10030 F%[178]0:[129]I[178]1[164]NM[173]2
10040 [139]E$(SP,I)[178]"-STEP-"[167]F%[178]F%[170]1
10050 [130]
10060 [139]F%[178][181](NM[173]2)[167]10140
10070 [129]I[178]1[164]NM[173]2:[139]K[179][177]0[167]10080
10080 [139]E$(SP,I)[179][177]"-STEP-"[167]10135
10085 [151]646,1[171](K[173]2[178][181](K[173]2))[172]4
10090 [153]""SP"CMD. (null)PIELTAG  "S$
10100 [153]""M$(0,H(SP,I))"-"M$(0,G(SP,I)):K[178]K[170]1
10110 [139]DR[178]3[167]10130
10120 [152]4,M$(1,H(SP,I))"  LEN  "M$(1,G(SP,I))[199](16)"50";
10125 [152]4,SP". SPIELTAG"
10130 [139]K[178]3[167]K[178]0:[153]:[141]35:[153]"LOAD"LI$(0):[153]"SYS (null)ACHHOLSPIELE : "
10135 [130]
10140 [130]
10150 [139]K[179][177]0[167][153]:[141]35:[137]9000
10160 [137]9000
10500 F2%[178]1:[137]6000
14999 [178][178][178][178][178][178][178][178][178][178][178][178][178][178] DISK [178][178][178][178][178][178][178][178][178][178][178][178][178][178]
15000 [153]"LOAD"LI$(0)
15010 [153]""MU$:[153]"ONON";:Z$[178]" STR$ I S K ":[141]25
15020 [153]"1) STR$ATEN LADEN        6) STR$ATEI L*SCHEN
15030 PRINT"2) [196]ATEN SPEICHERN    7) [203]OMMENTAR IN
15035 [153][163]25)"STR$IRECTORY EINF.";
15040 [153]"3) STR$IRECTORY ASCORMAT 1 8) PEEKEFEHLSKANAL
15050 PRINT"4) [196]IRECTORY [198]ORMAT 2 9) [198]EHLERKANAL
15055 [153]"5) STR$IRECTORY VALIDATE 0) LEFT$AUPTMEN^
15060 PRINT""MU$
15070 GOSUB15:IFA$<"0"ORA$>"9"THEN15070
15080 ONVAL(A$)+1GOTO230,20000,21000,15100,22000,22700,22500,20500,15200,15090
15090 GOSUB55:IFA<2THENPRINT"[147]":GOSUB25:GOSUB35
15095 GOTO15000
15100 PRINT"[147]":FORI=1TO15:NEXT:SYS49152:IFST<>64THENGOSUB55:GOTO15000
15110 PRINTTAB(8)"[170][167] [210][197][212][213][210][206] [190][191][146]";
15120 GOSUB15:IFA$<>CHR$(13)THEN15120
15130 GOTO15000
15200 POKE631,34:POKE198,1
15210 PRINT"[147] [194]EFEHL : ";:INPUT#3,BF$:PRINT
15250 IFBF$="X"THEN15000
15270 IFLEFT$(BF$,1)="N"THENPRINT#15,"M-W"CHR$(81)CHR$(0)CHR$(1)CHR$(255)
15280 PRINT#15,BF$:CLOSE1:GOSUB55:GOTO15000
15999 =============== ENDE =============
16000 INPUT"[147] [211]ICHER ";SI$
16020 IFLEFT$(SI$,1)="J"THENSYS64738
16040 GOTO230
16499 ======== PUNKTE ERRECHNEN ========
16500 PT(H(SP,I))=PT(H(SP,I))+H*FM%
16510 MT(H(SP,I))=MT(H(SP,I))+G*FM%
16520 PT(G(SP,I))=PT(G(SP,I))+G*FM%
16530 MT(G(SP,I))=MT(G(SP,I))+H*FM%
16540 IFH=GTHEND1=1:D2=1:UN(H(SP,I))=UN(H(SP,I))+FM%:UN(G(SP,I))=UN(G(SP,I))+FM%
16550 IFH>GTHEND1=2:D2=0:GW(H(SP,I))=GW(H(SP,I))+FM%:VL(G(SP,I))=VL(G(SP,I))+FM%
16560 IFH<GTHEND1=0:D2=2:VL(H(SP,I))=VL(H(SP,I))+FM%:GW(G(SP,I))=GW(G(SP,I))+FM%
16570 PP(H(SP,I))=PP(H(SP,I))+D1*FM%
16580 MP(H(SP,I))=MP(H(SP,I))+D2*FM%
16590 PP(G(SP,I))=PP(G(SP,I))+D2*FM%
16600 MP(G(SP,I))=MP(G(SP,I))+D1*FM%
16610 RETURN
16999 ======= DATUM / SPIELTAG =========
17000 INPUT"[147] [211]PIELTAG ";ST$
17010 IFST$="X"THENRETURN
17020 IFLEFT$(ST$,2)<>"D;"THENGOSUB145:RETURN
17030 AF=0:ED=0:FORII=1TOAS*RR%
17040 IFMID$(ST$,3)=D$(II)THENAF=II:ED=II:II=AS*RR%
17050 NEXT
17060 RETURN
17999 ====== DRUCKER / BILDSCHIRM ======
18000 IFDR=4THENCLOSE4:DR=3:POKE251,66:GOTO230
18010 PRINT"[147]":Z$="[255]BERSCHRIFT DRUCKEN ([202]/[206]) ?":GOSUB25
18011 GOSUB15:IFA$="X"THEN230
18012 IFA$<>"J"ANDA$<>"N"THEN18011
18014 AA$=A$
18015 GA=4:GOSUB19000
18045 OPEN4,4,0:IFAA$="N"THEN18090
18050 PRINT#4,TAB(20)CHR$(14)">>> LIGA - MASTER <<<"
18055 PRINT#4
18060 FORI=1TO40:PRINT#4,"*";:NEXT:PRINT#4,CHR$(15)
18070 PRINT#4,LI$(1);:PRINT#4,SPC(5)S$CHR$(14)
18080 FORI=1TO40:PRINT#4,"*";:NEXT:PRINT#4:PRINT#4,CHR$(15)
18090 DR=4:POKE251,68:GOTO230
18100 PRINT#4,M$(1,H(SP,I))CHR$(16)"18 [195] "M$(1,G(SP,I));
18110 FORKK=1TOLEN(E$(SP,I)):B$=MID$(E$(SP,I),KK,1)
18120 IFB$="[169]"THENPO=KK:KK=LEN(E$(SP,I))
18130 NEXT
18140 PRINT#4,CHR$(16)"38"LEFT$(E$(SP,I),PO-1)" : "MID$(E$(SP,I),PO+1);
18150 RETURN
18490 ========== UHR STELLEN ===========
18500 Z$="[170][167] [204][201][199][193] - [205][193][211][212][197][210] [190][191]":PRINT"[147]";:GOSUB25
18501 Z$="[188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188]":GOSUB25
18502 PRINT""LI$(0)
18510 PRINT""MU$:PRINT"[145][145]";:Z$=" [213] H R   S T E L L E N ":GOSUB25
18520 PRINT" [196]ATUM  ([212]AG)
18522 [153]" STR$ATUM  ((null)ONAT)
18524 PRINT" [196]ATUM  ([202]AHR)
18530 [153]" (null)HRZEIT  (LEFT$LEFT$(null)(null)(null)(null))"
18540 [153]""MU$
18550 [153]""[163]19);:[132]3,TA$:[153]:[153][163]19);
18551 [139]TA$[178]"X"[175][194](789)[178]194[167][142]
18552 [139]TA$[178]"X"[167]18500
18555 [132]3,MO$:MO[178][197](MO$):[153]:[153][163]19);:[132]3,JA$:JA[178][197](JA$):[153]
18556 TA[178][197](TA$)
18560 [139]JA[177]1900[167]JA[178]JA[171]1900
18570 [139]JA[179]80[176]JA[177]99[167]18500
18580 [139]MO[179]1[176]MO[177]12[167]18500
18585 [139]TA[179]1[176]TA[177]31[167]18500
18590 [139](MO[178]4[176]MO[178]6[176]MO[178]9[176]MO[178]11)[175]TA[178]31[167]18500
18600 [139]MO[178]2[175]TA[177]29[167]18500
18610 [139]MO[178]2[175]TA[178]29[175]JA[173]4[179][177][181](JA[173]4)[167]18500
18615 [151]252,TA:[151]253,MO:[151]254,JA
18620 [153]""[163]19);:[132]3,TM$:[153]
18630 [158]49408,TM$
18640 [142]
18999 [178][178][178][178][178][178][178] GER@T EIGESCHALTET [178][178][178][178][178][178][178]
19000 [159]10,GA,0:[160]10:[139]ST[177][178]0[167][142]
19010 [139]GA[178]4[167]GA$[178]"STR$RUCKER"
19020 [139]GA[178]8[167]GA$[178]"ASCLOPPY"
19030 [153]"LOAD":Z$[178]GA$[170]" EINSCHALTEN !!":[141]25
19040 [153]"";:[141]35
19050 [139]A$[178]"X"[167]230
19070 [137]19000
19999 [178][178][178][178][178][178][178][178][178][178] DATEN LADEN [178][178][178][178][178][178][178][178][178][178][178]
20000 Z$[178]" STR$ A T E N   L A D E N ":S%[178]0:[141]23000:[160]5:[139]A[177]1[167]15000
20010 [139][200](F2$,1)[178]"(null)"[167]20060
20020 [153]"";:Z$[178]" UNZUL@SSIGER ASCILETYP !! ":[141]25
20030 [141]15:[139]A$[179][177]" "[167]20030
20040 [137]20000
20060 [159]9,8,2,FI$[170]",S,R"
20065 [141]55
20066 [139]A[177]1[167][160]9:[141]81:[137]15000
20070 [132]9,LI$(0),LI$(1),S$,NM,AS
20080 [129]I[178]1[164]NM:[129]J[178]0[164]2:[132]9,M$(J,I):[130]:[130]
20090 [132]9,RR%
20100 [129]I[178]1[164]AS[172]RR%:[129]J[178]1[164]NM[173]2:[132]9,H(I,J),G(I,J):[130]:[130]
20110 [129]I[178]1[164]AS[172]RR%:[132]9,D$(I):[130]
20120 [129]I[178]1[164]AS[172]RR%:[129]J[178]1[164]NM[173]2:[132]9,E$(I,J):[130]:[130]
20130 [129]I[178]1[164]NM
20140 [132]9,PP(I),MP(I),PT(I),MT(I),GW(I),UN(I),VL(I),PL(I)
20150 [130]:[132]9,PL(0)
20160 [160]9:[141]55:[137]230
20499 [178][178][178][178][178][178] KOMMENTAR EINF[174]GEN [178][178][178][178][178][178][178][178]
20500 S%[178]0:Z$[178]" (null) O M M E N T A R   E I N F .":ZU$[178]" (null)OR":[141]23000:ZU$[178]""
20505 [139]A[177]1[167][160]5:[141]55:[137]15000
20510 [153]"LOAD"LI$(0):[153]""MU$:[153]"ONON";:[141]25
20520 [153]""MU$:[153]"ONONONONONONON PEEKITTE (null)EXT EINGEBEN (MAX. 73 (null)EICHEN) :"
20530 [153]"+THEN"[200](SP$,73)"COSSINONON":[153][163]2);
20540 [132]3,TE$:[153]:TE$[178]"(null) "[170][200](TE$[170]SP$,73)
20550 NR[178]0
20560 NR[178]NR[170]1:[152]15,"P"[199](3)[199](NR)[199](0)[199](1)
20561 [141]55:[139]A[177]1[167]15000
20565 [161]#5,A$:[139]A$[179][177][199](255)[167]20560
20567 [139]NR[178]143[167][153]"":Z$[178]"(null)EIN (null)LATZ MEHR !":[141]25:[153]:[141]35:[137]15000
20570 [129]I[178]NR[171]1[164]NR%[169][171]1
20580 [152]15,"P"[199](3)[199](I)[199](0)[199](1)
20590 [132]5,A$
20600 [152]15,"P"[199](3)[199](I[170]1)[199](0)[199](1)
20610 [152]5,A$:[130]
20620 [152]15,"P"[199](3)[199](NR%)[199](0)[199](1)
20630 [152]5,TE$:[160]5:[141]55:[137]15000
20999 [178][178][178][178][178][178][178][178] DATEN SPEICHERN [178][178][178][178][178][178][178][178][178]
21000 Z$[178]" STR$ A T E N   S P E I C H E R N "
21005 [159]6,8,3,"DIRECTORY":[160]6
21010 ZZ$[178]Z$:[141]55:Z$[178]ZZ$:[139]A[179]2[167]21100
21015 [139]A[179][177]62[167]15000
21020 [153]"LOAD"LI$(0):[153]""MU$:[153]"ONON";
21030 [141]25
21040 [153]" STR$IES IST KEINE (null)IGA - (null)ASTER STR$ISKETTE!"
21050 [153]" (null)OLL ES EINE WERDEN ? (J/N)"
21060 [153]""MU$
21070 [141]15:[139]A$[178]"N"[167]15000
21080 [139]A$[179][177]"J"[167]21070
21090 [159]6,8,3,"DIRECTORY,L,"[170][199](76)
21092 [152]15,"P"[199](3)[199](144)[199](0)[199](1):[152]6,[199](255)
21095 [160]6
21096 ZZ$[178]Z$:[141]55:Z$[178]ZZ$:[139]A[177]1[175]A[179][177]50[167][160]6:[141]81:[137]15000
21100 S%[178]1:[141]23000:[160]5:[139]A[177]1[167]15000
21101 [139][200](F2$,1)[179][177]"(null)"[167]21108
21102 [153]"";:Z$[178]" UNZUL@SSIGER ASCILETYP !! WAIT":[141]25
21103 [141]15:[139]A$[179][177]" "[167]21103
21104 [137]21000
21108 [139]NR%[178]0[167]21120
21110 [152]15,"S:"[170]FI$
21120 [159]9,8,2,FI$[170]",S,W"
21130 [152]9,LI$(0):[152]9,LI$(1):[152]9,S$:[152]9,NM:[152]9,AS
21140 [129]I[178]1[164]NM:[129]J[178]0[164]2:[152]9,M$(J,I):[130]:[130]
21150 [152]9,RR%
21160 [129]I[178]1[164]AS[172]RR%:[129]J[178]1[164]NM[173]2:[152]9,H(I,J):[152]9,G(I,J):[130]:[130]
21170 [129]I[178]1[164]AS[172]RR%:[152]9,D$(I):[130]
21180 [129]I[178]1[164]AS[172]RR%:[129]J[178]1[164]NM[173]2
21190 [152]9,E$(I,J)
21200 [130]:[130]
21210 [129]I[178]1[164]NM
21220 [152]9,PP(I):[152]9,MP(I):[152]9,PT(I):[152]9,MT(I)
21230 [152]9,GW(I):[152]9,UN(I):[152]9,VL(I):[152]9,PL(I)
21240 [130]:[152]9,PL(0)
21250 [160]9:[141]55
21260 [139][197](FK$)[179][177]0[167]15000
21270 DA$[178]"":[129]I[178]0[164]2
21280 DA$[178]DA$[170][201]("0"[170][202]([196]([194](252[170]I)),2),2)
21290 [139]I[179][177]2[167]DA$[178]DA$[170]"."
21300 [130]
21310 TM$[178]"":[129]I[178]52286[164]52293
21315 [139]I[178]52288[176]I[178]52291[167]TM$[178]TM$[170]"-":[130]
21320 TM$[178]TM$[170][202]([196]([194](I)[171]48),2,1)
21330 [130]
21335 [139][194](52295)[178]1[167]21338
21336 [139][197](TM$)[178]12[167]21340
21337 TM$[178][202]([196]([197](TM$)[170]12),2)[170][202](TM$,3)
21338 [159]7,8,4,"DIRECTORY"
21340 [139][197](NR$)[178]0[167]21380
21350 [152]15,"P"[199](4)[199](NR%)[199](0)[199](1)
21360 [152]7,"(null)"[202](F2$,2,26)DA$[202](F2$,36,32)TM$
21370 [160]7:[137]230
21380 NR[178]0
21390 NR[178]NR[170]1:[152]15,"P"[199](4)[199](NR)[199](0)[199](1)
21400 [161]#7,A$:[139]A$[179][177][199](255)[175]A$[179][177]"(null)"[167]21390
21410 [152]15,"P"[199](4)[199](NR)[199](0)[199](1)
21420 [152]7,"(null) "[200](FI$,12)"   "DA$"  "DA$;[200](SP$,22)TM$"  "TM$
21430 [160]7:[137]230
21999 [178][178][178][178][178][178][178][178][178] [211]EC[164]RY F2 [178][178][178][178][178][178][178][178][178][178][178]
22000 S%[178]2:Z$[178]" STR$ I R E C T O R Y   ASC. 2 ":[141]23000:[137]15000
22499 [178][178][178][178][178][178][178][178][178] DATEI L[172]SCHEN [178][178][178][178][178][178][178][178][178][178]
22500 Z$[178]" STR$ A T E I   L * S C H E N "
22510 S%[178]0:[141]23000:[139]A[177]1[167][160]5:[137]15000
22520 [139][200](F2$,1)[179][177]"(null)"[167][152]15,"S:"[170]FI$
22530 [152]15,"P"[199](3)[199](NR%)[199](0)[199](1)
22540 [152]5,"(null)"[170][202](F2$,2)
22550 [160]5:[141]55:[137]15000
22699 [178][178][178][178][178][178][178] [211]EC[164]RY [197]IDATE [178][178][178][178][178][178][178]
22700 [159]8,8,5,"DIRECTORY"
22710 [141]55:[139]A[177]1[167][160]8:[137]15000
22720 NR[178]0:DE[178]0
22730 NR[178]NR[170]1:[152]15,"P"[199](5)[199](NR)[199](0)[199](1)
22735 [132]8,A$:[139]A$[178][199](255)[167]22760
22737 [139]([200](A$,1)[178]"(null)"[176][200](A$,1)[178]"(null)")[175]DE[178]0[167]22730
22738 [139][200](A$,1)[178]"(null)"[167]DE[178]DE[170]1:[137]22730
22740 [152]15,"P"[199](5)[199](NR[171]DE)[199](0)[199](1)
22750 [152]8,A$:[137]22730
22760 [129]I[178]NR[171]DE[164]NR:[152]15,"P"[199](5)[199](I)[199](0)[199](1)
22770 [152]8,[199](255):[130]
22780 [160]8:[137]15000
22999 [178][178][178][178][178][178] [211]EC[164]RY F2 LESEN [178][178][178][178][178][178][178][178]
23000 [159]5,8,3,"DIRECTORY"
23010 ZZ$[178]Z$:[141]55:Z$[178]ZZ$
23020 [139]A[179][177]62[167]23030
23021 [153]"LOAD"LI$(0):[153]""MU$:[153]"ONON";:[141]25
23022 [153]"":Z$[178]"(null)EINE (null)IGA - (null)ASTER STR$ISKETTE !":[141]25:[153]
23023 [153]""MU$:[153]"ONONONON";:[141]35:[160]5:[137]15000
23030 [139]A[177]1[167][160]5:[142]
23040 NR[178]0:EN[178]0
23050 [153]"LOAD"LI$(0):[153]""MU$:[153]"ONON";:[141]25
23052 [153]""MU$;
23053 [153]""
23056 NR[178]NR[170]1:[152]15,"P"[199](3)[199](NR)[199](0)[199](1)
23057 [151]646,1[171](NR[173]2[178][181](NR[173]2))[172]4
23060 [132]5,FI$:[139]FI$[179][177][199](255)[167]23068
23065 NR[178]NR[171]1:EN[178]NR:[153]" VALNDE "
23067 [137]23080
23068 [139]DR[178]3[176]S%[179][177]2[167]23070
23069 [152]4,""[202]([196](NR),2)"."[199](16)"05"[200](FI$,35):[152]4,""[202](FI$,36)
23070 [153][202]([196](NR),2)"."[163]4)FI$:[139]NR[173]5[179][177][181](NR[173]5)[167]23056
23080 [139]S%[179][177]2[167]23087
23082 [141]15:[139]A$[178]"X"[167][160]5:[137]15000
23083 [139]A$[178]"+"[167]23050
23084 [139]A$[179][177]"-"[167]23082
23085 NR[178]NR[171]10:[139]NR[179]0[167]NR[178]0
23086 [137]23050
23087 [153]""ZU$" (null)UMMER ";:[139]S%[178]1[167][153]"(BZW. ASCILENAME) ";
23088 [153]": ";:[132]3,NR$:[153]
23089 [139]NR$[178]"X"[167]A[178]2:[142]
23090 [139]NR$[178]"+"[167]23050
23100 [139]NR$[179][177]"-"[167]23107
23105 NR[178]NR[171]10:[139]NR[179]0[167]NR[178]0
23106 [137]23050
23107 [139]([198](NR$)[179]48[176][198](NR$)[177]57)[175]S%[178]1[167]FI$[178][200](NR$[170]SP$,12)[170]"(null)RIGHT$(null)ATN":[142]
23110 NR%[178][197](NR$)
23120 [139]NR%[179]1[176]NR%[177]143[176](NR%[177]EN[175]EN[179][177]0)[167][153]"ONON";:[137]23087
23125 [152]15,"P"[199](3)[199](NR%)[199](0)[199](1)
23126 [132]5,F2$:[139]F2$[179][177][199](255)[167]23130
23127 Z$[178]" UNZUL@SSIGE (null)UMMER ! ":[153]"";:[141]25:[141]15
23128 [139]A$[179][177]" "[167]23127
23129 [160]5:A[178]2:[142]
23130 FI$[178][202](F2$,3,12)[170]"(null)RIGHT$(null)ATN":[142]
29999 [178][178][178][178][178][178][178][178][178][178] NEUE LIGA [178][178][178][178][178][178][178][178][178][178][178][178][178]
31000 [153]"LOAD"LI$(0)
31010 [153]""MU$
31020 Z$[178]" N E U E   (null) I G A ":[153]"ONON";:[141]25
31030 [153][163]5)"EINGEBEN VON :"
31040 [153][163]7)"1) - (null)AME / (null)AISON"
31050 [153][163]7)"2) - (null)ANNSCHAFTSNAMEN"
31060 [153][163]7)"3) - (null)PIELTAG"
31070 [153][163]7)"4) - STR$ATUM"
31080 [153][163]7)"5) LEFT$AUPTMEN^"
31090 [153]MU$
31100 [141]15
31110 [139]A$[179]"1"[176]A$[177]"5"[167]31100
31120 [145][197](A$)[137]31130,31350,31570,31900,230
31130 [153]"LOAD"[163]10)LI$(0)
31140 [133]"ONON (null)IGA   ";L$
31150 [139]L$[178]"X"[167]31000
31160 LI$(0)[178][200](L$[170]SP$[170]SP$,39)
31170 LG$[178]"":[129]J[178]1[164]39:B$[178][202](LI$(0),J,1)
31180 [139]B$[178]"@"[176]B$[178]"SQR"[167]LG$[178]LG$[170]C$(1):[137]31235
31190 [139]B$[178]"*"[176]B$[178]"TAN"[167]LG$[178]LG$[170]C$(2):[137]31235
31200 [139]B$[178]"^"[176]B$[178]"(null)"[167]LG$[178]LG$[170]C$(3):[137]31235
31210 [139]B$[178]"_"[167]LG$[178]LG$[170]"SS":[137]31235
31220 [139][198](B$)[177]192[175][198](B$)[179]229[167]LG$[178]LG$[170][199]([198](B$)[171]128):[137]31235
31230 LG$[178]LG$[170]B$
31235 [139][195](LG$)[177]247[167]J[178]40
31240 [130]:LI$(1)[178]LG$
31250 [153]""[163]10)S$
31260 [133]"ON (null)AISON ";S$:S$[178][200](S$[170]SP$,9)
31270 [153]""[163]22)NM
31280 [133]"ON ATNNZAHL (null)ANNSCHAFTEN ";NM
31290 [139]NM[179]3[176]NM[177]20[167]31280
31300 AS[178]NM[170](NM[173]2[178][181](NM[173]2))
31302 [153]" (null)^CKRUNDE (MID$/(null)) ?"
31303 [141]15
31304 [139]A$[178]"J"[167]RR%[178]2:[137]31310
31305 [139]A$[178]"N"[167]RR%[178]1:[137]31310
31306 [137]31303
31310 [153]:[153]:[153]:[141]80
31320 [141]15:[139]A$[178]"N"[167]31130
31330 [139]A$[179][177]"J"[167]31320
31340 [137]31000
31350 [153]"LOAD"
31360 [129]I[178]1[164]NM
31370 [151]646,1[171](I[173]2[178][181](I[173]2))[172]4
31380 [153][163]17)M$(0,I)[163]31)"(null)"
31390 [153]"ON"Z$(I);:[133]". (null)ANNSCHAFT ";M$:[139][200](M$,4)[178]"X   "[167]31000
31400 M$(0,I)[178][200](M$[170]SP$,14)
31420 M$(1,I)[178]"":M$(2,I)[178]"":[129]J[178]1[164]14:B1$[178][202](M$(0,I),J,1):B2$[178]B1$
31430 [139]B1$[178]"@"[176]B1$[178]"SQR"[167]B1$[178]C$(1):B2$[178]C$(4):[137]31480
31440 [139]B1$[178]"*"[176]B1$[178]"TAN"[167]B1$[178]C$(2):B2$[178]C$(5):[137]31480
31450 [139]B1$[178]"^"[176]B1$[178]"(null)"[167]B1$[178]C$(3):B2$[178]C$(6):[137]31480
31460 [139]B1$[178]"_"[167]B1$[178]"SS":[137]31480
31470 [139][198](B1$)[179]193[176][198](B1$)[177]228[167]31480
31475 B1$[178][199]([198](B1$)[171]128):B2$[178]B1$
31480 M$(1,I)[178]M$(1,I)[170]B1$:M$(2,I)[178]M$(2,I)[170]B2$
31490 [130]:[130]:[141]80
31530 [141]15
31540 [139]A$[178]"J"[167]31000
31550 [139]A$[178]"N"[167]31350
31560 [137]31530
31570 [141]17000:[139]ST$[178]"X"[167]31000
31580 [139]AF[179]1[176]AF[177]AS[167]31570
31590 ED[178]ED[173]RR%
31690 [129]I[178]AF[164]ED
31700 [153]"LOAD"
31710 [129]J[178]1[164]NM[173]2:[153]Z$(J)". ";M$(0,J):[130]
31720 [153]"";:[129]J[178][181](NM[173]2)[170]1[164]NM:[153][163]20)Z$(J)". "M$(0,J):[130]
31730 [153]"SYS"[200]([196](I)[170]". (null)PIELTAG        "[170]S$[170]SP$,39)"WAIT"
31740 [129]K[178]1[164]NM[173]2
31750 [133]H$:[139]H$[178]"X"[167]K[178]NM[173]2:I[178]ED:[130]:[130]:[137]31000
31760 H(I,K)[178][197](H$):[139]H(I,K)[179]1[176]H(I,K)[177]NM[167][153]"ON";:[137]31750
31770 [153]"ON"M$(0,H(I,K));:[153][163]20);"LOG ";
31780 [133]G$:G(I,K)[178][197](G$):[139]G(I,K)[179]1[176]G(I,K)[177]NM[167][153]"ON"[163]22);:[137]31780
31790 [153]"ON";[163]22);M$(0,G(I,K))
31800 [130]:[153]"SYS"[163]20)"   (null)ORREKT (MID$/(null))?   WAIT"
31810 [141]15
31820 [139]A$[178]"J"[167]31850
31830 [139]A$[178]"N"[167]31700
31840 [137]31810
31850 [139]RR%[178]1[167]31890
31860 [129]K[178]1[164]NM[173]2
31870 H(I[170]AS,K)[178]G(I,K):G(I[170]AS,K)[178]H(I,K)
31880 [130]
31890 [130]:[137]31000
31900 [153]"LOAD VALINGABE STR$ATUM :":[153]
31910 [129]I[178]1[164]AS:[153]
31920 [151]646,1[171](I[173]2[178][181](I[173]2))[172]4
31940 [153][163]29)D$(I)
31950 [153]"ON"I;:[133]"CMD. (null)PIELTAG (LEFT$INRUNDE)  ";D$(I):D$(I)[178][200](D$(I),10)
31960 [139]RR%[178]1[167]32000
31970 [153][163]29)D$(I[170]AS)
31980 [153]"ON"I[170]AS;:[133]"CMD. (null)PIELTAG ((null)^CKRUNDE) ";D$(I[170]AS)
31990 D$(I[170]AS)[178][200](D$(I[170]AS),10)
32000 [130]
32010 [153]:[153]:[153]:[141]80
32020 [141]15
32030 [139]A$[178]"N"[167]31900
32040 [139]A$[179][177]"J"[167]32020
32050 [137]31000
63000 [172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172]
63001 [172][172][172][172]                         [172][172][172][172]
63002 [172][172][172][172] LIGA [171] MASTER V3  V[145] : [172][172][172][172]
63003 [172][172][172][172]                         [172][172][172][172]
63004 [172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172]
63005 [172][172][172][172][172][172][172]                   [172][172][172][172][172][172][172]
63006 [172][172][172][172][172][172][172]   FRANK [164]ELKE    [172][172][172][172][172][172][172]
63007 [172][172][172][172][172][172][172] TEU[164]NENSTR. 82 A [172][172][172][172][172][172][172]
63008 [172][172][172][172][172][172][172] 5880 LUEDENSCHEID [172][172][172][172][172][172][172]
63009 [172][172][172][172]                         [172][172][172][172]
63010 [172][172][172][172] TEL.: 0 23 51 [173] 2 80 90 [172][172][172][172]
63011 [172][172][172][172]                         [172][172][172][172]
63012 [172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172]